1 REM *** LEARNING ENGLISH --PD!!-- ***
2 :
3 :
5 POKE 53281,0:POKE 53280,0:PRINT""
7 PRINTCHR$(14);CHR$(8)
10 PRINT"[147]":DIME$(99),D$(99)
20 PRINT"[214]OKABEL-[212]RAINING"
25 PRINT"         [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30 PRINT"[215]AEHLE AUS:"
35 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
40 PRINT"(1)   [197]INGEBEN"
50 PRINT"(2)   [211]PEICHERN"
60 PRINT"(3)   [197]INLESEN"
70 PRINT"(4)   [213]EBEN"
80 PRINT"(5)   [206]ACHSCHLAGEN"
85 PRINT"(6)   [193]UFLISTEN"
90 PRINT"(7)   [197]NDE"
100 GETW$:IFW$=""THEN100
110 IFW$="7"THEN150
120 IFW$<"1"ORW$>"6"THEN100
130 ONVAL(W$)GOSUB1000,2000,3000,4000,6000,8000
140 PRINT"[147]":GOTO20
150 PRINT"[147]";:END
1000 REM EINGABE ODER WOERTER
1010 PRINT"[147]":N=0
1020 PRINT"[204]ETZTES [215]OERTERPAAR: *  * ":PRINT"
1030 [133]"VALNGLISCH ";E$(N):[153]
1040 [133]"STR$EUTSCH ";D$(N)
1050 [139]E$(N)[179][177]"*"[167]N[178]N[170]1:[153]"LOAD":[137]1020
1060 N[178]N[171]1
1070 [142]
2000 [143] WOERTER SPEICHERN
2010 [153]"LOAD":[133]"(null)ENNWORT ";A$
2020 [159]1,8,1,A$
2030 [152]1,N
2040 [129]I[178]0[164]N
2050 [152]1,E$(I);[199](13)
2055 [152]1,D$(I);[199](13)
2060 [130]I
2070 [160]1
2080 [142]
3000 [143] EINLESEN DER WOERTER
3010 [153]"LOAD":[133]"(null)ENNWORT ";A$
3020 [159]1,8,0,A$
3030 [132]1,N
3040 [129]I[178]0[164]N
3050 [132]1,E$(I)
3055 [132]1,D$(I)
3060 [130]I
3070 [160]1
3080 [142]
4000 [143] UEBEN
4010 [153]"LOAD(1) VALNGLISCH > STR$EUTSCH"
4020 [153]" ODER"
4030 [153]"(2) STR$EUTSCH > VALNGLISCH"
4040 [153]" ODER"
4050 [153]"(M) (null)ENUE"
4060 [161]W$:[139]W$[178]""[167]4060
4070 [139]W$[178]"M"[167]5000
4080 [139]W$[179][177]"1"[175]W$[179][177]"2"[167]4060
4090 [145][197](W$)[141]10000,20000
5000 [142]
6000 [143] NACHSCHLAGEN
6010 [153]"LOAD(1) VALNGLISCH > STR$EUTSCH"
6020 [153]"         ODER"
6030 [153]"(2) STR$EUTSCH > VALNGLISCH"
6040 [153]"         ODER"
6050 [153]"(M) (null)ENUE"
6060 [161]W$:[139]W$[178]""[167]6060
6070 [139]W$[178]"M"[167]7000
6080 [139]W$[179][177]"1"[175]W$[179][177]"2"[167]6060
6090 [145][197](W$)[141]15000,25000
7000 [142]
8000 [153]"LOAD"
8010 [153]"(null)OKABEL-(null)ISTE:";A$
8015 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
8020 [129]I[178]0[164]N[169]6:[129]J[178]0[164]5
8030 [153]E$(J[170]I),D$(J[170]I)
8040 [153]
8050 [130]J
8060 [153]"STR$RUECKE EINE (null)ASTE!"
8070 [161]W$:[139]W$[178]""[167]8070
8075 [153]"LOAD"
8080 [130]I
8090 [142]
10000 [143] UPRO UEBEN
10010 [153]"LOAD(null)IE HEISST DAS DEUTSCHE (null)ORT ?"
10020 J[178][181]([187](TI)[172]N[170].5)
10030 [153]"";E$(J);"?"
10040 [153]"":[133]D$
10050 [153]""
10060 [129]K[178]0[164]N
10070 [139]E$(K)[178]E$(J)[175]D$[178]D$(J)[167][153]"(null)ICHTIG!!!":[137]10130
10080 [130]K
10090 [153]"";E$(J);"WAIT HEISST AUF DEUTSCH "
10100 [129]K[178]0[164]N
10110 [139]E$(K)[178]E$(J)[167][153]:[153]"";D$(K);"WAIT"
10120 [130]K
10130 [153]"STR$RUECKE EINE (null)ASTE ODER M!"
10140 [161]W$:[139]W$[178]""[167]10140
10150 [139]W$[178]"M"[167]10170
10160 [137]10010
10170 [142]
15000 [143] UPRO NACHSCHLAGEN
15010 [153]"LOADVALNGLISCHES (null)ORT?"
15015 [133]E$
15020 [129]K[178]0[164]N
15030 [139]E$(K)[178]E$[167][153]:[153]"";D$(K);"WAIT"
15040 [130]K
15050 [153]"STR$RUECKE EINE (null)ASTE ODER M!"
15060 [161]W$:[139]W$[178]""[167]15060
15070 [139]W$[178]"M"[167]15090
15080 [137]15010
15090 [142]
20000 [143] UPRO UEBEN
20010 [153]"LOAD(null)IE HEISST DAS ENGLISCHE (null)ORT ?"
20020 J[178][181]([187](TI)[172]N[170].5)
20030 [153]"";D$(J);"?"
20040 [153]"":[133]E$
20050 [153]""
20060 [129]K[178]0[164]N
20070 [139]D$(K)[178]D$(J)[175]E$[178]E$(J)[167][153]"(null)ICHTIG!!!":[137]20130
20080 [130]K
20090 [153]"";D$(J);"WAIT HEISST AUF ENGLISCH:"
20100 [129]K[178]0[164]N
20110 [139]D$(K)[178]D$(J)[167][153]:[153]"";E$(K);"WAIT"
20120 [130]K
20130 [153]"STR$RUECKE EINE (null)ASTE ODER M!"
20140 [161]W$:[139]W$[178]""[167]20140
20150 [139]W$[178]"M"[167]20170
20160 [137]20010
20170 [142]
25000 [143] UPRO NACHSCHLAGEN
25010 [153]"LOADSTR$EUTSCHES (null)ORT"
25015 [133] D$
25020 [129]K[178]0[164]N
25030 [139]D$(K)[178]D$[167] [153]:[153]"";E$(K);"WAIT"
25040 [130]K
25050 [153]"STR$RUECKE EINE (null)ASTE ODER M!"
25060 [161]W$:[139]W$[178]""[167]25060
25070 [139]W$[178]"M"[167]25090
25080 [137]25010
25090 [142]